dql1 Function

public function dql1(ifound, jfoundr, pabs) result(powccc)

pintld=-pintld4*dfdv

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ifound
integer,	intent(in)			::	jfoundr
real(kind=wp),	intent(in)			::	pabs

Return Value real(kind=wp)